Public Class FRmAbout

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        'Shell(My.Computer.FileSystem.SpecialDirectories.ProgramFiles & "\Internet Explorer\Iexplore.exe www.codeplex.com/hangman/", AppWinStyle.NormalFocus, False)
        'Shell("http://www.codeplex.com/hangman/", AppWinStyle.NormalFocus, False)
        System.Diagnostics.Process.Start("http://www.codeplex.com/hangman/")
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

    End Sub

    Private Sub FRmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        lblversion.Text = "Version:" & My.Application.Info.Version.Major & "." & My.Application.Info.Version.Minor & "." & My.Application.Info.Version.Build & "." & My.Application.Info.Version.Revision
        lblcompany.Text = "Company:" & My.Application.Info.CompanyName
        centerCtl(lblversion)
        centerCtl(lblcompany)
        txtDescription.Text = txtDescription.Text & My.Application.Info.Description
        'txtdescription.Text &= "  --For More Information, go to www.codeplex.com/HangMan/"

    End Sub
    Public Sub centerCtl(ByVal c As Control)
        c.Location = New Point((Me.Width / 2) - (c.Width / 2), c.Location.Y)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.Close()
    End Sub
End Class